Family Forum 262/SOMC Family Forum 262.iso/Xtras/Animation Wizard.dir/00001.ls

Text File | 1997-05-10 | 4.7 KB | 122 lines

on startMovie
  global goFunction, goBannersText, goZoomsText, goCreditsText, goBulletsText, goMarkFrame, goAnimateTitle, goSeconds, goFPS, goBaseline, goSizeMin, goSizeMax, goDelayEnter, goDelayHold, goCycles, goVisualStyles, goBanners, goBullets, goZooms, goCredits, goMotionStyles, goScoreMgr, goCastMgr, goMovieName, goPlatform
  cursor(4)
  set memberScreenArtStart to the number of member "OnScreenArtStart" + 1
  set memberScreenArtEnd to the number of member "OnScreenArtEnd" - 1
  tell the stage
    set thePalette to the framePalette
  end tell
  if thePalette = -1 then
    set goPlatform to "Mac"
    go("BannersMac")
  else
    set goPlatform to "Pc"
    go("BannersPc")
  end if
  InitTheGlobals()
  set goScoreMgr to 0
  set goScoreMgr to birth(script "ScoreMgr")
  set goCastMgr to 0
  set goCastMgr to birth(script "CastMgr")
  set goBannersText to 0
  set goBannersText to birth(script "TextField", "BannersText", "This is banners text")
  set goZoomsText to 0
  set goZoomsText to birth(script "TextField", "ZoomsText", "This is zoom text")
  set goCreditsText to 0
  set goCreditsText to birth(script "TextField", "CreditsText", "This is credits:Text" & RETURN & "And:So is this")
  set goBulletsText to 0
  set goBulletsText to birth(script "TextField", "BulletsText", "This is Bullets Title" & RETURN & "This is Bullets Text" & RETURN & "This is Bullets Text Longer")
  set goMarkFrame to 0
  set goMarkFrame to birth(script "CheckBox")
  set goAnimateTitle to 0
  set goAnimateTitle to birth(script "CheckBox")
  set goSeconds to 0
  set goSeconds to birth(script "IncrDecrValue", #int, 1, 999, 1, 5, "Seconds")
  set goFPS to 0
  set goFPS to birth(script "IncrDecrValue", #int, 1, 120, 1, 7, "FPS")
  set theStageHeight to mGetStageHeight(goScoreMgr)
  set goBaseline to 0
  set goBaseline to birth(script "IncrDecrValue", #int, 1, theStageHeight, 1, 9, "Baseline")
  set goSizeMin to 0
  set goSizeMin to birth(script "IncrDecrValue", #int, 1, 500, 1, 22, "SizeMin")
  set goSizeMax to 0
  set goSizeMax to birth(script "IncrDecrValue", #int, 1, 500, 1, 24, "SizeMax")
  set goDelayEnter to 0
  set goDelayEnter to birth(script "IncrDecrValue", #int, 0, 60, 1, 11, "DelayEnter")
  set goDelayHold to 0
  set goDelayHold to birth(script "IncrDecrValue", #int, 0, 60, 1, 13, "DelayHold")
  set goCycles to 0
  set goCycles to birth(script "IncrDecrValue", #int, 1, 999, 1, 15, "Cycles")
  set goVisualStyles to 0
  set goVisualStyles to birth(script "IncrDecrCast")
  set goBanners to 0
  set goBanners to birth(script "Banners")
  set goZooms to 0
  set goZooms to birth(script "Zooms")
  set goCredits to 0
  set goCredits to birth(script "Credits")
  set goBullets to 0
  set goBullets to birth(script "Bullets")
  set goFunction to 0
  set goFunction to birth(script "Function")
  set goMovieName to the movieName
  set offS to offset(".dir", the movieName)
  if offS then
    delete char offS to offS + 4 of goMovieName
  end if
  cursor(-1)
end

on stopMovie
  nothing()
end

on closeWindow
  global goFunction, goBannersText, goZoomsText, goCreditsText, goBulletsText, goMarkFrame, goAnimateTitle, goSeconds, goFPS, goBaseline, goSizeMin, goSizeMax, goDelayEnter, goDelayHold, goCycles, goVisualStyles, goBanners, goBullets, goZooms, goCredits, goMotionStyles, goScoreMgr, goCastMgr, goMovieName, gkTransparentInk, void, goPlatform, gDevelopmentFlag, gCastNumCheckBoxOn, gCastNumCheckBoxOff, gCastNumTextAsBitmap
  set goFunction to VOID
  set gkTransparentInk to VOID
  set goBannersText to VOID
  set goZoomsText to VOID
  set goCreditsText to VOID
  set goBulletsText to VOID
  set goMarkFrame to VOID
  set goAnimateTitle to VOID
  set goSeconds to VOID
  set goFPS to VOID
  set goBaseline to VOID
  set goSizeMin to VOID
  set goSizeMax to VOID
  set goDelayEnter to VOID
  set goDelayHold to VOID
  set goCycles to VOID
  set goVisualStyles to VOID
  set goBanners to VOID
  set goBullets to VOID
  set goZooms to VOID
  set goCredits to VOID
  set goMotionStyles to VOID
  set goScoreMgr to VOID
  set goCastMgr to VOID
  set goPlatform to VOID
  set theName to goMovieName
  set goMovieName to VOID
  set gDevelopmentFlag to VOID
  set gCastNumCheckBoxOn to VOID
  set gCastNumCheckBoxOff to VOID
  set gCastNumTextAsBitmap to VOID
  forget(window theName)
end

on InitTheGlobals
  global gDevelopmentFlag, gCastNumCheckBoxOn, gCastNumCheckBoxOff, gCastNumTextAsBitmap, gkTransparentInk, goPlatform
  if the windowList = [] then
    set gDevelopmentFlag to 1
  else
    set gDevelopmentFlag to 0
  end if
  set gCastNumCheckBoxOn to the number of member ("CheckBoxOn" & goPlatform)
  set gCastNumCheckBoxOff to the number of member ("CheckBoxOff" & goPlatform)
  set gCastNumTextAsBitmap to the number of member "TextAsBitmap"
  set gkTransparentInk to 36
end